home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / GNU-SMALLTALK.lha / Array.st < prev    next >
Text File  |  1992-02-15  |  3KB  |  96 lines
  1. "======================================================================
  2. |
  3. |   Array Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. |
  36. | sbb         16 Mar 91      Fixed class creation to be separate statement from
  37. |              class commenting.
  38. |
  39. | sbb         21 Sep 90      Added printOn: and storeOn: methods.
  40. |
  41. | sbyrne     25 Apr 89      created.
  42. |
  43. "
  44.  
  45. ArrayedCollection variableSubclass: #Array
  46.           instanceVariableNames: ''
  47.           classVariableNames: ''
  48.           poolDictionaries: ''
  49.           category: nil
  50. !
  51.  
  52. Array comment: 
  53. 'My instances are objects that have array-like properties: they are directly 
  54. indexable by integers starting at 1, and they are fixed in size.  I inherit
  55. object creation behavior messages such as #with:, as well as iteration
  56. and general access behavior from SequenceableCollection.' !
  57.  
  58. !Array methodsFor: 'basic'!
  59.  
  60.  
  61. !
  62.  
  63. !Array methodsFor: 'printing'!
  64.  
  65. printOn: aStream
  66.     aStream nextPut: $(.
  67.     self do:
  68.     [ :elt | elt printOn: aStream.
  69.          aStream space ].
  70.     aStream nextPut: $)
  71. ! !
  72.  
  73.  
  74.  
  75. !Array methodsFor: 'storing'!
  76.  
  77. storeOn: aStream
  78.     | index |
  79.     aStream nextPutAll: '((';
  80.     nextPutAll: self classNameString;
  81.     nextPutAll: ' basicNew: ';
  82.     print: self basicSize;
  83.     nextPut: $).
  84.     index _ 1.
  85.     self do:
  86.         [ :element | aStream nextPutAll: ' at: ';
  87.              print: index;
  88.              nextPutAll: ' put: ';
  89.              store: element; 
  90.              nextPut: $;.
  91.              index _ index + 1 ].
  92.     index > 1 ifTrue: [ aStream nextPutAll: ' yourself' ].
  93.     aStream nextPut: $)
  94. ! !
  95.  
  96.